Schaltuhr in delphi

[thorstenf01]

Hallo,
unten seht ihr das Programm einer Zeitschaltuhr, das in VB geschrieben
worden ist und funktioniert.
Wer kann mir dabei helfen, dieses in Delphi umzuwandeln...

Code:

Private Sub Form_Load()
  If OPENCOM("COM2:9600,N,8,1") = 0 Then MsgBox ("COM2 belegt")
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
  CLOSECOM
End Sub

Private Sub Timer1_Timer()
  Text1.Text = Time$
  If Time$ < Text1.Text Then DTR 0
  If (Time$ > Text2.Text) And (Time$ < Text3.Text) Then DTR 1
  If (Time$ > Text3.Text) And (Time$ < Text4.Text) Then DTR 0
  If (Time$ > Text4.Text) And (Time$ < Text5.Text) Then DTR 1
  If (Time$ > Text5.Text) Then DTR 0
End Sub

Danke im voraus
Gruß
Thorsten

[Luckie]

Kuck dir mal die TTimer-Komponente an und was die Hilfe dazu sagt. Dann solltest du das hinbekommen.