Billed flimmer

Jeg har lavet et script som opdaterer et billede nogele gange i sekundet, men den "flimrer" hvordan undgår jeg dette?, her er min kode:

var
  newlook: TImage;
begin
  newlook := TImage.Create(self);
  newlook.width := 256;
  newlook.height := 192;
  newlook.Canvas.Font.Color := ColorBox1.Selected;
  newlook.Canvas.Font.Size := round(Spinedit6.Value/4);
  newlook.Canvas.Font.Name := Combobox1.Text;
  newlook.Canvas.TextOut(round(Spinedit2.Value/4),round(Spinedit3.Value/4), edit2.text);
Image1.Canvas.draw(0,0,newlook.Picture.Bitmap);

Jeg går ud fra det er den sidste kode som laver noget galt... Image1 er selvf. en image jeg har indsat på min form.