procedure TForm3.CERRARClick(Sender: TObject);
var
SList : TStringList;
begin
SList := TStringList.Create;
try
if NombreServer.Text <> '' then
begin
SList.Add(NombreServer.Text);
SList.SaveToFile(ExtractFilePath(Application.ExeName)+'PARAMETROS.TXT');
ShowMessage('UBICACIÓN DE SERVIDOR GUARDADO');
Form3.Close;
end
else
begin
ShowMessage('INGRESE UNA DIRECCIÓN POR FAVOR');
Exit;
end;
finally
SList.Free;
SList := nil;
end;
end;