esto es algo de lo que escribe pero lanza un error expected but found.
procedure TForm1.FormCreate(Sender: TObject); var ini:TiniFile; begin ini:=Tinifile.Create('C:\base.ini'); edit1.Text:=ini.ReadString('Basededatos','localhost',string); edit2.Text:=ini.ReadString('Basededatos','usuario',string); edit3.Text:=ini.ReadString('Basededatos','contraseña',string); edit4.Text:=ini.ReadInteger('Basededatos','port',integer); ini.Free; end;