Effekt: 25 Einzelbild! Ist das erlaubt?

[Oleksandr]

Guten Abend
Ich habe jetzt versucht ein Bild darstellen und nach 10 Millisekunden ihm Ausblenden und dann wieder anzeigen...und s.w.
Bils flackert. Gibt es eine Möglichkeit es so machen, dass Bild nicht flackert.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 MEinBitmap:=TBitmap.Create;
 jpg := TJPEGImage.Create;
 jpg.LoadFromFile('c:\S3500016.JPG');
 MEinBitmap.Width := jpg.Width;
 MEinBitmap.Height := jpg.Height;
 MEinBitmap.canvas.Draw(0,0,jpg);
 doubleBuffered:=true;

 PaintBox1.Canvas.Brush.Bitmap:=MeinBitmap;
 PaintBox1.Refresh;
 PaintBox1.Repaint;
 end;

Delphi-Quellcode:

Procedure TForm1.PaintBox1Paint(Sender: TObject);
Var
  lDrawRect: TRect;
Begin
  If IntersectRect(lDrawRect, PaintBox1.ClientRect, Canvas.ClipRect) Then
  Begin
    BitBlt(PAintBox1.Canvas.Handle,
             lDrawRect.Left,
             lDrawRect.Top,
             lDrawRect.Right  - lDrawRect.Left,
             lDrawRect.Bottom - lDrawRect.Top,
           MEinBitmap.Canvas.Handle,
             lDrawRect.Left - PaintBox1.ClientRect.Left,
             lDrawRect.Top  - PaintBox1.ClientRect.Top,
           SRCCOPY);
  End;
End;

Ich habe Dann Timer, und jede 10 Millisekunden ich mache: PAintBox1.visible:=false oder true.

Mit größeren Intervallen es sieht auch nicht ganz besser aus.
Was mache ich falsch?:==))))

Mit freundlichen Gruessen
Oleksandr


P.S. GAnz vergessen: ist es möglich ein Bild auf dem Bildschirm zu Zeigen einmal pro 10 Millisekunden, und sogar so, dass er nicht sichtbar ist für Auge?:=)))))