[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array [1..4, 1..6] of Char;
  v: array [1..6] of Char;
  col, row: Integer;
  i: Integer;
begin
  Memo1.Clear;
  for col:=1 to 4 do
    for row:=1 to 6 do
      a[col, row]:=StringGrid1.Cells[col, row][1];
  for i:=1 to 6 do v[i]:=a[1, i];
  for i:=1 to 6 do Memo1.Lines.Add(v[i]); 
end;

см. все во вложении