Присвоить значения из файла переменным

var
  ADate: TDateTime;
  AYear, AMonth, ADay: integer;
begin
  ADate  := now;    
  
  DecodeDate(ADate, AYear, AMonth, ADay);
 
  ShowMessage(IntToStr(AYear));
  ShowMessage(IntToStr(AMonth));
  ShowMessage(IntToStr(ADay));
end;

procedure TForm1.sButton5Click(Sender: TObject);
var
 i:integer;
 s:string;
begin
for i := 0 to MEMO1.lines.Count-1 do
begin
s:= MEMO1.lines.strings[i];
    Memo2.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
    Memo3.Text:=Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s));
    Memo4.Text:=s;
  end;
 end;

s:= MEMO1.lines[i];

Memo2.Lines.Add(Copy(s,1,pos('.',s)-1)); 
delete(s,1,pos('.',s));
Memo3.Lines.Add(Copy(s,1,pos('.',s)-1));
delete(s,1,pos('.',s));
Memo4.Lines.Add(s);

procedure TForm1.sButton5Click(Sender: TObject);
var
 i:integer;
 s:string;
begin
for i := 0 to MEMO1.lines.Count-1 do
begin
s:= MEMO1.lines.strings[i];
    Memo2.Lines.Add(Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s)));
    Memo3.Lines.Add(Copy(s,1,pos('.',s)-1); delete(s,1,pos('.',s)));
    Memo4.Lines.Add(s);
  end;
 end;

begin
    Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'dat.txt');
    Rewrite(GoodFile);
    Closefile(GoodFile);
    Append(GoodFile);
    WriteLn(GoodFile,ADay+':'+AMonth+':'+AYear);
    CloseFile(GoodFile);
    end;

    Closefile(GoodFile);
    Append(GoodFile);