MfG
Greg

P.S: bitte sagt mir nicht dass ich vorher suchen sollte, ich habe die suchfunktion benuzt und habe nichts gefunden.

Hättest du aber eigentlich über die Suche finden müssen

::Sleep(x); //x = int, Verzögerung in Millisekunden
Application->ProcessMessages(); //Damit das Programm nicht "abgestürzt" wirkt

Hättest du aber eigentlich über die Suche finden müssen

Mit Sleep() halte ich das ganze Programm auf ;). Ich will dass das Programm jedoch weiterläuft und nur in bestimmten Abschnitten die Timerfunktion einsetzt.

warum willst du denn keinen TTimer benutzten? Genau Dafür ist er doch da!
Ansonsten mußt du eben ein Thread erstellen, der Sleep(x) und dann deine Aktion ausführt.

bis bald
akari

// In dem Thread wird der IO-Port gepollt. Das Thread kann mit dem
// Ereignis End-Event beendet werden.
void __fastcall TParallelIO::Execute()
{
char	cMessage[255];

while (!Terminated) { // Endlos-Schleife des Thread

	// Warten auf das Ereignis. Nach Ablauf von zwei Sekunden wird der
	// Time-Out ausgelöst.
	if ((OnStatusExecute->WaitFor (TREADTIMEOUT)) != wrTimeout)
	{
		// Fehlermeldung ausgeben
		sprintf(cMessage,
		  "[TParallelIO::Execute]"
		  " Fehler im Thread Fehler-Nr.: %d",
		  OnStatusExecute->LastError);
		IOPort->msgErrorExt(
		  ICONTROL_PANEL,
		  IFEHLER,
		  "",
		  cMessage);
	}else
	{
		Synchronize(EinlesenIOPort);	// Ereignis bearbeiten
	}	// Ende: if ((OnStatusExecute->WaitFor (TREADTIMEOUT))!= wrSignaled)
   }	 	// Ende: while (!Terminated)
	// Der Thread wird nur beim beenden der Applikation beendet. Als
	// externes Zeichen werden die drei Kontrollleuchten eingeschaltet.
	KontrollLampenEin();
}

	// Der Thread ist aufgebaut als eine Endlosschleife, die durch den
	// Funktionsaufruf "WaitFor" der Klasse TEvent unterbrochen wird.
	// Die Schleife wird wieder fortgesetzt, wenn ein Ereignis fuer
	// "OnStatusExecute" gesetzt wird oder der Timeout abgelaufen ist.
	OnStatusExecute	= new TEvent(
				NULL,	// Zugriffsrechte und Vererbungsmoeglichkeiten
				false,   // automatisch zurueckgesetzen
				false,   // TEvent-Objekt mit rueckgesetztem Signal erzeugen
				"");	// Name eines Windows-Ereignisobjekts

Viel Erfolg
Evi48