Wie kleinste Zahl aus Memo Box auslesen?

[Klaus01]

Delphi-Quellcode:

var
  kleinsteZahl:Integer;

kleinsteZahl:=MaxInt;
for i:=0 to memo1.lines.count -1 do
 begin
   if StrToInt(memo1.lines[i]) < kleinsteZahl then
     kleinsteZahl :=StrToInt(memo1.lines[i]) 
 end;

Grüße
Klaus