1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Enabled:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Interval:=10000;
 timer1.Enabled :=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 timer1.Enabled:=false;
 //Hier kommt jetzt die Anweisung, den Namen der Person wieder zu löschen
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:

implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
begin
 timer1.Enabled:=false;
 for i := Memo1.Lines.Count - 1 downto 0 do begin
    if (Memo1.Lines[i] = '<not found>') then begin
         Memo1.Lines.Delete(i);
    end;
  end;

end;

function liesperson:Tperson;
begin
  result.name:= form1.edit1.Text;
end;

procedure schreibperson(person:Tperson);
var Timer1: TTimer;
begin
 form1.Memo1.lines.add(person.name);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var person: TPerson;
begin
  person := liesperson;
  schreibperson(Person);
  Timer1.Enabled :=true;
  timer1.Interval:=10000;
  Timer1Timer(Sender);
end;					

1:
2:

procedure schreibperson(person:Tperson);
var Timer1: TTimer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
begin
   for i := Memo1.Lines.Count - 1 downto 0 do 
   begin
      if (Memo1.Lines[i] = '<not found>') then
      begin
          Memo1.Lines.Delete(i);
          timer1.Enabled:=false;  
      end;
   end;
end;					

1:

Timer1Timer(Sender);					

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:

.....
.....
Private
    kunde: TStringlist;
    goTime: TTime;
.....
.....
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    kunde:= TStringList.Create;
    goTime:= StrToTime('00:01:00'); //zum test auf 1min gesetzt
    Memo1.Clear;
    Edit1.Text:= '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if Edit1.Text= '' then exit;
    kunde.Add(Edit1.Text+' '+TimeToStr(Now)+'='+ TimeToStr(Now+goTime));
    Memo1.Lines.Add(Edit1.Text+' '+TimeToStr(Now)+'='+ TimeToStr(Now+goTime));
    Edit1.Text:= '';
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
    istTime: TTime;
    kundenTime: TTime;
begin
    istTime:= Time;
    for i:= 0 to kunde.Count - 1 do
    begin
        kundenTime:= StrtoTime(kunde.ValueFromIndex[i]);
        if istTime >= kundenTime then
        begin
            kunde.Delete(i);
            Memo1.Clear;
            Memo1.Lines.AddStrings(kunde);
            break;
        end;
    end;
end;