[TOJluK]

Я бы даже сказал, просто щелкни по форме 2 раза, ну и там напиши так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1Click(Self);
end;

Вроде так.