Программа для предприятия

[failure1]

Приветствую.
Есть задание, нужно написать программу.
На предприятии в отделе работает несколько сотрудников. Каждый отмечается когда приходит/уходит с работы. Программа должна показывать сотрудников которые пришли на работу ( Button 1 ) , и которые вообще не пришли ( Button 2 ). Используется компонент stringgrid .
Как это сделать , я не понимаю что от меня хотят, спасите)

[failure1]

вот как примерно
http://s42.radikal.ru/i096/1301/05/3cc693b2d21c.png

Имена беру из Memo1.Lines .

procedure TForm1.Button1Click(Sender: TObject);

begin

StringGrid1.Cells[1,1]:=label1.caption;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin
StringGrid1.Options:=StringGrid1.Op tions+[goEditing];
Label1.Caption:=Memo1.Lines.Strings[0];
end;

Нужно сделать чтобы label1 менялся на строки из Memo. Что-то криво делаю,помогите запилить