Microcontrolador pic16f877a y cport en delphi 7

[MaMu]

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
begin
  if timer1.Enabled then
    begin
      Button7.Caption := 'Timer On';
      timer1.Enabled := false;
    end  else    
    begin
      trackbar1.Position := 0; //Y esto no??? o mantenemos lo anterior?
      Button7.Caption := 'Timer Off';
      timer1.Enabled := true;
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  trackbar1.Position := TrackBar1.Position + 1;
end;

Saludos