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:

procedure Sortiere(sg1:TStringGrid);
var   punkt:array of string;      // um eine Zeile zu speichern
      wechsel,i,j,maxi:integer; // alsD ist der Inhalt als Double

  function su(such:string):integer;
  var i:integer;
  begin su:=0;
        for i:=1 to sg1.ColCount-1 do
         if copy(sg1.Cells[i,0],1,length(such))=such then su:=i;
  end;

begin maxi:=0;  // im maxi ist die Anzahl der belegten Zeilen des Grids
      setLength(punkt,sg1.ColCount);
      for i:=1 to sg1.RowCount-1 do // es werden die belegten Zeilen gezählt
        if alsD(sg1.Cells[su('St'),i])<>0 then inc(maxi); // <>0 = maxi
      repeat // immer wiederholen...
       wechsel:=0; // Tester ob noch was sortiert wird
        for i:=maxi downto 1 do // von Ende bis Anfang
         if alsD(sg1.Cells[su('Station'),i-1])>alsD(sg1.Cells[su('Station'),i]) then
          // wenn die obere Zelle > als die aktuelle Zelle [ Spalte1 Mathe]
          // dann tausche :
          begin for j:=1 to sg1.ColCount-1 do punkt[j]:=sg1.Cells[j,i-1];
                      // oberen Inhalt in Punkt
                for j:=1 to sg1.ColCount-1 do sg1.Cells[j,i-1]:=sg1.Cells[j,i];
                      // aktuelle steigt eine nach oben
                for j:=1 to sg1.ColCount-1 do sg1.Cells[j,i]:=Punkt[j];
                      // obere (in Punkt) besetzt die aktuelle Zeile
                inc(wechsel); // Wechsel-Feststeller
          end;
      until wechsel=0; //...bis keine Wechsel mehr nötig sind
      sg1.SetFocus;
end;					

1:

alsD(sg1.Cells[su('Station'),i])