Följande kod i OnTimer visar en shape ungefär 0,5 sek. Om du vill att detta ska ske var var 10 sek så får du sätta intervallet i timern till 10000.
procedure TForm.ShapeTimerTimer(Sender: TObject);
var
StartTid: DWord;
begin
Shape.visible := true;
StartTid := GetTickCount();
while GetTickCount < StartTid + 500 do
Application.ProcessMessages;
Shape.visible := false;
end;