procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  R: TRect;
begin
  I := R.Top - Height;
  while Top > I do
  begin
    Top := Top - 2;
    Repaint;
    IdAntiFreeze1.Sleep(10);
    IdAntiFreeze1.Process;
  end;
 
    IdAntiFreeze1.Sleep(1);
 
  I := Screen.Width - 20;
  while Top < I do
  begin
    Top := Top + 2;
    Repaint;
    IdAntiFreeze1.Sleep(10);
    IdAntiFreeze1.Process;
  end;
  Close;
end;