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:
62:

procedure SortGrid (Grd: TStringGrid; Spalte, ZweiteSpalte, BeginnZeile, 
Endzeile: Integer; GrossKleinIgnorieren: boolean); 
var
  i, j, k: integer;

  function verglsp(s: integer): integer;
  begin
    if GrossKleinIgnorieren then
      result := ansistricomp (pchar(grd.cells[s, j]),
      pchar(grd.cells[s, j + k]))
    else
     result := ansistrcomp(pchar(grd.cells[s, j]),
     pchar(grd.cells[s, j + k]));
  end;

  function vergl: boolean;
  var
    x: integer;
  begin
    x := verglsp(spalte);
    if x = 0 then
      x := verglsp(zweitespalte);
    result := x > 0;
  end;

  procedure doit;
  var
    y: integer;
    s: string;
  begin
    for y := grd.fixedcols to grd.colcount - 1 do begin
      s := grd.cells[y, j];
      grd.cells[y, j] := grd.cells[y, j + k];
      grd.cells[y, j + k] := s;
    end;
  end;

begin
  with grd do begin
    editormode := false;
    k := EndZeile shr 1;
    while k > 0 do begin
      for i := BeginnZeile to EndZeile - k do begin
        j := i;
        while (j >= BeginnZeile) and vergl do begin
          doit;
          if j > k then
            dec(j, k)
          else
            j := BeginnZeile;
        end;
      end;
      k := k shr 1;
    end;
  end;
end;

// Beispielaufruf mit Familiennamen in Spalte 3 und Vornamen in Spalte 2
procedure TFormx.Button4Click(Sender: TObject);
begin
  sortgrid(stringgrid1, 2, 1, stringgrid1.fixedrows, stringgrid1.rowcount - 1, false);
end;					

1:
2:
3:
4:

function sortiertes_datum(s:string):string;
begin
 result:=copy(s,4,2)+copy(s,1,2)+copy(s,7,2);
end;