Программа камера хранения, работа с временем не могу разобраться помогите)

[farefo]

Программа состоит что человек приходит говорит свою фио и сдает свой багаж, в камеру хранения, помогите в том что в listboxe есть какое то значения (время когда сдал) надо его найти и отнять от настоящего (системного)времени

[Stilet]

Пирьям пирьяриям пирьям:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  dateutils,
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }
      TBaggins=class
       Times:TTime;
			end;

      TForm1 = class(TForm)
						Button1: TButton;
						Button2: TButton;
						Edit1: TEdit;
						ListBox1: TListBox;
						procedure Button1Click(Sender: TObject);
						procedure Button2Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Button1 do begin Align:=alTop;Caption:='Сдал с потрохами';   OnClick:=@Button1Click; end;
  with Button2 do begin Align:=alTop;Caption:='Принял за воротник'; OnClick:=@Button2Click; end;
  Edit1.Align:=alTop;
  ListBox1.Align:=alClient;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ListBox1.Items do begin
   Tag:=AddObject(Edit1.Text,TBaggins.Create);
   TBaggins(Objects[Tag]).Times:=Time();
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 with ListBox1,ListBox1.Items do begin
   if ItemIndex=-1 then begin ShowMessage('Выборы, выборы - кандидаты не выбраны :)');exit; end
   else begin
     ShowMessage(
		      format(
		        'Чувак с погонялом %s продержал свое барахло %d секунд'
		        ,[Strings[ItemIndex],SecondsBetween(TBaggins(Objects[ItemIndex]).Times,Time())]
		      )
		     );
     Delete(ItemIndex);
	 end;
 end;

end;

end.

Трям-трям

свою фио

ФИО - это "оно".
Тебе кстати пачку запятых не нужно? А то у меня лишних +100500 завалялось. Могу подарить.

[min@y™]

ФИО - это "оно".

«они»! и, таки, да, подарунок от мну (МНУ – это «кого»):

[Stilet]

«они»!

Не, ну "они" это когда Ф.И.О.
А в данном случае просто фио.

[farefo]

Спасибо ребята