Функция поиска меньшего числа в StringList

uses ..., Math;
...
function dSort(L: TStringList; i1, i2: integer): integer;
begin
 Result := CompareValue(StrToInt(L.Strings[i1]), StrToInt(L.Strings[i2]));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var L: TStringList;
begin
 L := TStringList.Create;
 L.Text := Trim(Memo1.Text);
 L.CustomSort(dSort);
 Edit1.Text := L.Strings[0];
 L.Free;
end;

Edit1.Text := Format('Минимальное число - %s в строке %d', [L.Strings[0], Memo1.Lines.IndexOf(L.Strings[0]) + 1]);

function dSort(L: TStringList; i1, i2: integer): integer;
begin
 Result := CompareValue(StrToInt(L.Strings[i1]), StrToInt(L.Strings[i2]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,imn,min:integer;
begin
min:=strtoint(Memo1.Lines[0]);
imn:=1;
for i:=1 to Memo1.Lines.Count-1 do
if strtoint(Memo1.Lines[i])<min then
 begin
  min:=strtoint(Memo1.Lines[i]);
  imn:=i+1;
 end;
Edit1.Text:='Минимальный элемент='+inttostr(min)+'  в строке '+inttostr(imn);
 
end;