procedure  n_con_g(nyear:integer;nmonth:integer;nday:integer;niyear:pinteger;nimonth:pinteger;niday:pinteger)
                   stdcall;external 'd:\nongli.dll';
procedure  g_con_n(syear:integer;smonth:integer;sday:integer;niyear:pchar;nimonth:pchar;niday:pchar)
                   stdcall;external 'd:\nongli.dll';
procedure TForm1.Button4Click(Sender: TObject);
var
  syear: array[0..10]of char;
  smonth:array[0..10]of char;
  sday:  array[0..10]of char;
  iyear: integer;
  imonth:integer;
  iday:  integer;
......................