function CompareText(const S1, S2: string): Integer;
var s1,s2 : string; i : integer;s1:='Delphi'; s2:='Programming'; i:= CompareText(s1,s2); //i<0 weil D kleiner ist als P in der ascii Ordnung.