Wie kleinste Zahl aus Memo Box auslesen?

[DeddyH]

Delphi-Quellcode:

function GetMinValue(sList: TStrings): integer;
var i, temp: integer;
begin
  Result := MAXINT;
  for i := 0 to sList.Count - 1 do
    begin
      if TryStrToInt(sList[i],temp) and (temp < Result) then
        Result := temp;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetMinValue(Memo1.Lines)));
end;