Stringgrid Spalten in Zeilen tauschen

[fl63]

Hallo DPler!

Ich möchte eine Art Logbuch Datei anlegen, d.h.
ein zweispaltiges Stringgrid mit erster Spalte als Spaltenüberschrift und zweiter Spalte als WerteSpalte soll in ein
zweites Stringgrid dessen Spalten die Spaltenüberschriften des ersten Grids enthalten und die Wertespalte des ersten Grids soll in den Zeilen des zweiten Grids übernommen werden.

also ungefähr so:

Delphi-Quellcode:

procedure TForm1.einfugenClick(Sender: TObject);
var i :integer;
begin
 SG2.Cells[0,1] := DateToStr(DateTimePicker1.Date);
 SG2.Cells[1,1] := 'hauf'; //hier kommt FileName der laufenden Datei hinein
 SG2.Cells[2,1] := IntToStr(SGaddieren(SG1,1)) ; //Summe der WerteSpalte des ersten Grids
 SG2.Cells[3,1] := SG1.Cells[1,0];  // 15 Werte entsprechend der Wertespalte ds ersten Grids
 SG2.Cells[4,1] := SG1.Cells[1,1];
 SG2.Cells[5,1] := SG1.Cells[1,2];
 SG2.Cells[6,1] := SG1.Cells[1,3];
 SG2.Cells[7,1] := SG1.Cells[1,4];
 SG2.Cells[8,1] := SG1.Cells[1,5];
 SG2.Cells[9,1] := SG1.Cells[1,6];
 SG2.Cells[10,1] := SG1.Cells[1,7];
 SG2.Cells[11,1] := SG1.Cells[1,8];
 SG2.Cells[12,1] := SG1.Cells[1,9];
 SG2.Cells[13,1] := SG1.Cells[1,10];
 SG2.Cells[14,1] := SG1.Cells[1,11];
 SG2.Cells[15,1] := SG1.Cells[1,12];
 SG2.Cells[16,1] := SG1.Cells[1,13];
 SG2.Cells[17,1] := SG1.Cells[1,14];
 SG2.Cells[18,1] := SG1.Cells[1,15];  //WerteSpalte Ende

 SG2.SaveToCSV('HaufigLog.txt',#9);
end;

dieser Text ist natürlich nur dummes Zeug. Es fehlt die Zeilenweiterschaltung für das zweite Grid und vieles andere mehr.
Aber vielleicht kennt jemand eine Funktion die Spalten in Zeilen tauscht