1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var
  Form1: TForm1;
  temp:ttime;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Panel1.caption := formatdatetime('hh:mm:ss:zzz',temp - time);
end;

procedure TForm1.Btn_StartClick(Sender: TObject);
begin
temp := time;
Timer2.Enabled:=True;
end;

procedure TForm1.Btn_StopClick(Sender: TObject);
begin
Timer2.Enabled:=False;
end;

// und hier so wie ich mich das vorgestellt hatte..

procedure TForm1.Btn_go_onClick(Sender: TObject);
begin
Timer2.Enabled:=True;
Temp:=StrTotime(Panel1.Caption);
end;					

1:
2:
3:
4:
5:
6:

type
  TForm1 = class(TForm)
    {...}
  private
    FTemp: TTime;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

var
  Form1: TForm1;
  zeit,temp,last:ttime;

// Jetzt die geänderte Prozedur:

procedure TForm1.XButton1click(Sender: TObject);
begin
if not(timer.enabled) then begin temp:= time;zeit := last end else last := zeit;
// also wenn der timer aus ist, wird die letzte Zeit gespeichert,
timer.enabled := not(timer.enabled);
// und wenn er an ist wird die letzte reale Zeit gespeichert

// dafür brauch ich halt 3 variablen, würde mich interessieren ob es auch mit 2 geht

XButton1.Visible:=False;
//XButton1 ist der Button mit der Caption "Start"

XBtn_Pause.Visible:=True;
end;

und eben noch pause und weiter

procedure TForm1.XBtn_go_onclick(Sender: TObject);
begin
XButton1.click;
XBtn_Pause.Visible:=True;
XBtn_go_on.Visible:=False;
end;

procedure TForm1.XBtn_Pauseclick(Sender: TObject);
begin
XButton1.click;
XBtn_Pause.Visible:=False;
XBtn_go_on.Visible:=True;
end;					

1:
2:
3:
4:
5:

procedure TForm1.timerTimer(Sender: TObject);
begin
zeit := last + temp - time;
XPanel1.Caption:= formatdatetime('hh:mm:ss:zzz',zeit);
end;					

1:
2:
3:
4:

procedure FormIrgendeineAndere.ButtonClick(Sender: TObject)
begin
FormMitDerVariable.VariablenName:=NeuerVariablenWert;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

procedure TForm1.XButton2click(Sender: TObject);
// Lap-Button
begin
inc(count);
//count ist global deklariert

Listbox1.items.Add(formatdatetime('hh:mm:ss:zzz',zeit2)+' Lap ' + IntToStr(Count));
Listbox1.ItemIndex:=Count;
temp2:=Time;
end;

procedure TForm1.timerTimer(Sender: TObject);
begin
zeit := last + temp - time;
XPanel1.Caption:= formatdatetime('hh:mm:ss:zzz',zeit);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeit2 := last2 + temp2 - time;
XPanel2.Caption:= formatdatetime('hh:mm:ss:zzz',zeit2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
count:=0;
end;

procedure TForm1.XBtn_Pauseclick(Sender: TObject);
begin
XButton1.click;
//XBtn_Pause.Visible:=False;
//XBtn_go_on.Visible:=True;
end;

procedure TForm1.XBtn_go_onclick(Sender: TObject);
begin
//XButton1.click;
temp2:=time;
Timer.Enabled:=True;
Timer1.Enabled:=True;
//XBtn_Pause.Visible:=True;
//XBtn_go_on.Visible:=False;
end;

procedure TForm1.XButton1click(Sender: TObject);
begin
if not(timer.enabled) then begin temp:= time;zeit := last end else last := zeit;
timer.enabled := not(timer.enabled);

if not(timer1.enabled) then begin temp2:= time;zeit2 := last2 end else last2 := zeit2;
timer1.enabled := not(timer1.enabled);

XButton1.Visible:=False;
//XButton1 ist der Button mit der Caption "Start"

XBtn_Pause.Visible:=True;
end;