Вывод из StringGrid

[program123]

Есть StringGrid из двух столбцов. В первом столбце хранятся ФАМИЛИИ, во втором результаты, и нужно сделать небольшой отбор. Делаю так:

for i:=1 to StringGrid1.RowCount - 1 do
if StringGrid1.Cells[2,i]='5'
then label1.Caption:=StringGrid1.Cells[1,i];

Нужно чтобы фамилии у которых второй столбец имеет значение 5, выводились в label, в данном примере выводится только 1 фамилия. Помогите, заранее благодаре

[Neeter]

Вы же заменяете заголовок у кнопки. Надо так:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 Label1.Caption := '';
 for i := 1 to StringGrid1.RowCount - 1 do
  if StringGrid1.Cells[2,i] = '5' then
   Label1.Caption := Label1.Caption + #13#10 + StringGrid1.Cells[1,i];
end;

Это каждая фамилия записывается на новой строке. Если надо через пробел, то так:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 Label1.Caption := '';
 for i := 1 to StringGrid1.RowCount - 1 do
  if StringGrid1.Cells[2,i] = '5' then
   Label1.Caption := Label1.Caption + ' ' + StringGrid1.Cells[1,i];
end;