как из двух Memo вычислить и записать дату в траетий

var
  Form1: TForm1;
  i,j,c:integer;
 
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if edit1.Text<>'' then combobox1.SetFocus
else
begin
key:=#0;
showmessage('Введите название предмета');
end;
end;
end;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
begin
if combobox1.Text<>'' then maskedit1.SetFocus
else
begin
key:=#0;
showmessage('Введите день недели');
end;
end;
end;
 
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 begin
 if key=#13 then
begin
if maskedit1.Text<>'' then maskedit2.SetFocus
else
begin
key:=#0;
showmessage('Введите время начала занятий');
end;
end;
end;
end;
procedure TForm1.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
begin
 if key=#13 then
begin
for j:=form1.Memo1.Lines.Count-1 downto 0 do
if form1.Memo1.Lines[i]='' then form1.Memo1.Lines.Delete(i);
if maskedit2.Text<>'_:_' then memo1.Lines.Add(edit1.Text+':'+combobox1.text+';'+maskedit1.Text+'-'+maskedit2.Text)
else
begin
key:=#0;
showmessage('Введите время окончания занятий');
end;
edit1.Clear;
combobox1.Text:='';
maskedit1.Clear;
maskedit2.Clear;
edit1.SetFocus;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for c:=form2.Memo1.Lines.Count-1 to 0 do
if form2.Memo1.Lines[c]='' then form2.Memo1.Lines.Delete(c);
for i:=0 to Memo1.Lines.Count-1 do
form2.memo1.Lines.Add(copy(Memo1.Lines[i],pos(';',Memo1.Lines[i])+1,length(memo1.Lines[i])-pos(';',Memo1.Lines[i])+1));
form3.ShowModal;
end;
end.

var
  Form3: TForm3;
  i,j,c,x,q,w:integer;
  index:integer;
 
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm3.Button1Click(Sender: TObject);
var
 
data:TDateTime;
begin
index:=0;
for c:=form2.Memo2.Lines.Count-1 downto 0 do
if form2.Memo2.Lines[c]='' then form2.Memo2.Lines.Delete(c);
for x:=form2.Memo3.Lines.Count-1 downto 0 do
if form2.Memo3.Lines[x]='' then form2.Memo3.Lines.Delete(x);
for i:=0 to form2.Memo1.Lines.Count-1 do
form2.memo2.lines.Add(copy(form2.Memo1.Lines[i],pos('-',form2.Memo1.Lines[i])+1,length(form2.memo1.lines[i])-pos('-',form2.memo1.lines[i])));
for j:=0 to form2.Memo1.Lines.Count-1 do
form2.Memo3.Lines.Add(copy(form2.Memo1.Lines[j],0,pos('-',form2.Memo1.Lines[j])-1));
for q:=0 to form2.Memo3.Lines.Count-1 do
for w:=0 to form2.Memo2.Lines.Count-1 do
data:=strtoTime(form2.Memo3.Lines[q])-strtoTime(form2.Memo2.Lines[w]);
form2.Memo4.Lines[index]:=Timetostr(data);
inc(index);
form2.Memo4.Lines.Insert(form2.Memo4.Lines.Count-1,form2.Memo4.Lines[index]);
form2.showmodal;
with form2 do
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
Memo4.Clear;
end;
form3.Close;
end;
end.