Mencari Bilangan Max ,min

procedure TForm2.Button1Click(Sender: TObject);
var i: integer ;
begin
Edit1.Text := ListBox1.Items[0];
Edit2.Text := ListBox1.Items[0];

for I := 0 to ListBox1.Items.Count -1 do begin
  if StrToInt(Edit1.Text) > StrToInt(ListBox1.Items[i]) then
  Edit1.Text := ListBox1.Items[i] ;

  if StrToInt(Edit2.Text) < StrToInt(ListBox1.Items[i]) then
  Edit2.Text := ListBox1.Items[i] ;


end;


end;