Значение Combobox и DateTimePicker1.Date

var
  Form1: TForm1;
  ino,st,data: string;
  n: integer;
 
implementation
 
{$R *.dfm}
 
type
TPPatient = ^TPatient; //óêàçàòåëü íà òèï TPatient
 
  TPatient = record
    n_name: string[45]; //ÔÈÎ
    h_name: string[45]; //àäðåñ
    j_name: string[45]; //ìåñòî ðàáîòû
    next: TPPatient; //ñëåäóþùèé ýëåìåíò ñïèñêà
  end;
 
var
  head: TPPatient; //íà÷àëî ñïèñêà
 
//äîáàâèòü ýëåìåíòà
procedure TForm1.Button1Click(Sender: TObject);
var
  curr: TPPatient; // íîâûé ýëåìåíò ñïèñêà
begin
  Memo1.Clear;
  ino:=ComboBox1.Text;
  new(curr); //âûäåëèòü ïàìÿòü äëÿ ýëåìåíòà ñïèñêà
  curr^.n_name:= Edit1.Text;
  curr^.h_name:= Edit2.Text;
  curr^.j_name:= Edit3.Text;
 
   //äîáàâëåíèå â íà÷àëî ñïèñêà
  curr^.next:= head;
  head:= curr;
 
   //î÷èñòèòü ïîëÿ ââîäà
  Edit1.Text:= '';
  Edit2.Text:= '';
  Edit3.Text:= '';
  Edit1.SetFocus;
 
 
  //âûâåñòè ñïèñîê
  n:= 0;
  st:= '';
  curr:= head; // óêàçàòåëü íà ïåðâûé ýëåìåíò ñïèñêà
  while curr <> nil do
  begin
    n:= n + 1;
    st:= curr^.n_name + '     ' + curr^.h_name + '     ' + curr^.j_name + '     ' + ino + '     ' + DateToStr(DateTimePicker1.Date) + #13;
  if n <> 0 then
    Memo1.Lines.Add(st+#13)
  else Memo1.Lines.Add('Â ñïèñêå íåò ýëåìåíòîâ!');
    curr:= curr^.next; // óêàçàòåëü íà ñëåäóþùèé ýëåìåíò
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
p: TextFile;
begin
  if PrintDialog1.Execute then
  begin
    AssignPrn(p);
    Rewrite(p);
    Printer.Canvas.Font:= Memo1.Font;
    System.CloseFile(p);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;