Przyśpieszanie programu

Macie jakies pomysły na przyspieszanie aplikacji np. zamiast

procedure TForm1.Button1Click(Sender: TObject);
var i :Integer;
begin
for i:= 1 to 1000 do Memo1.Lines.Add(' *');
ShowMessage('done');
end;

Można

procedure TForm1.Button2Click(Sender: TObject);
var i :Integer;
begin
Memo1.Lines.BeginUpdate;
try
for i:= 1 to 1000 do Memo1.Lines.Add(' *');
finally
Memo1.Lines.EndUpdate;
ShowMessage('done');
end;
end;

piorunujący wynik - przynajmniej dla mnie

Wywal z "Auto-create forms" wszystkie dodatkowe formy (jeśli masz takowe) ... przyspieszy ci to uruchamianie programu

Kiedys bodajże Dryo napisał o dwóch sposobach:

użycie with przyspiesza

zamiast ustawiac osobno left, top, width i height lepiej uzyc BoundsRect. Mozna nim ustawic wszystko naraz i jest szybciej, bo left, width i reszta wywoluja BoundsRect