1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure ordnen;
var x,l,y,n: integer;
    t: string;
begin
x:=Form2.StringGrid1.RowCount-2;
l:=0;
repeat
  Form2.Memo1.Lines[l]:=Form2.StringGrid1.Cells[0,l]+'|1|'+Form2.StringGrid1.Cells[1,l]+'|2|'+Form2.StringGrid1.Cells[2,l]+'|3|'+Form2.StringGrid1.Cells[3,l]+'|4|'+Form2.StringGrid1.Cells[4,l]+'|5|'+Form2.StringGrid1.Cells[5,l]+'|6|'+Form2.StringGrid1.Cells[6,l]+'|7|'+Form2.StringGrid1.Cells[7,l]+'|8|'+Form2.StringGrid1.Cells[8,l];
  l:=l+1;
  until l=x;
Form2.ListBox1.Items.Add(Form2.Memo1.Text);
Form2.ListBox1.Sorted:=true;
Form2.Memo1.Clear;
Form2.Memo1.Text:=Form2.ListBox1.Items.Text;
y:=Form2.Memo1.Lines.Count-2;
n:=1;
repeat
  t:=Form2.Memo1.Lines[n];
  Form2.StringGrid1.Cells[0,n]:=copy(t,1,pos(t,'|1|'));
  Form2.StringGrid1.Cells[1,n]:=copy(t,pos(t,'|1|'),pos(t,'|2|'));
  Form2.StringGrid1.Cells[2,n]:=copy(t,pos(t,'|2|'),pos(t,'|3|'));
  Form2.StringGrid1.Cells[3,n]:=copy(t,pos(t,'|3|'),pos(t,'|4|'));
  Form2.StringGrid1.Cells[4,n]:=copy(t,pos(t,'|4|'),pos(t,'|5|'));
  Form2.StringGrid1.Cells[5,n]:=copy(t,pos(t,'|5|'),pos(t,'|6|'));
  Form2.StringGrid1.Cells[6,n]:=copy(t,pos(t,'|6|'),pos(t,'|7|'));
  Form2.StringGrid1.Cells[7,n]:=copy(t,pos(t,'|7|'),pos(t,'|8|'));
  Form2.StringGrid1.Cells[7,n]:=copy(t,pos(t,'|8|'),length(t)-pos(t,'|8|'));
  n:=n+1;
  until n=y;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
    var SortColumn:integer;
{$R *.DFM}

function SortCompare(p1,p2:pointer):integer;
  begin
     //Pointer auf tStringList casten und die Spalte als index angeben - schon haben wird die Daten wieder
    result:=StrComp(pChar(tStringlist(p1)[SortColumn]),pChar(tStringlist(p2)[SortColumn])); 
  end;

procedure SortStringGridByColumn(StrGrid:tStringGrid;SortCol:integer);
  var List:tList;
      i:integer;
      StringList:tStringList;
begin
  List:=tList.Create;
  for i:=0 to StrGrid.RowCount-1 do
    begin
      StringList:=tStringList.Create;
      StringList.AddStrings(StrGrid.Rows[i]);
      List.Add(StringList);
    end;
  if SortCol<StrGrid.RowCount then SortColumn:=SortCol else SortColumn:=StrGrid.RowCount; //Globale Variable für die zu sortierende Spalte Setzen
  List.Sort(SortCompare);
  for i:=0 to List.Count-1 do
    begin
      StrGrid.Rows[i]:=tStringList(List.items[i]);
      tStringList(List.items[i]).Free;
    end;
  List.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SortStringGridByColumn(StringGrid1,1);
end;

end.