var A:= new SADataAdapter();
  A.SelectCommand:= new SACommand();
  ...
  A.SelectCommand.CommandType:= CommandType.StoredProcedure;
  ...
  A.Fill(AProject);

  edtDescription.DataBindings.Add(new Binding('Text', Project, 'description'));

  var Changes: DataTable;
  Changes:= AProject.GetChanges();

namespace WindowsApplication1;

interface

uses
  System.Windows.Forms,
  System.Drawing,
  System.Data,
  iAnywhere.Data.SQLAnywhere;

type
  /// <summary>
  /// Summary description for MainForm.
  /// </summary>
  MainForm = class(System.Windows.Forms.Form)
  {$REGION Windows Form Designer generated fields}
  private
    saConnection1: iAnywhere.Data.SQLAnywhere.SAConnection;
    button1: System.Windows.Forms.Button;
    textBox1: System.Windows.Forms.TextBox;
    components: System.ComponentModel.Container := nil;
    method InitializeComponent;
  {$ENDREGION}
  private
    method button1_Click(sender: System.Object; e: System.EventArgs);
    method MainForm_Load(sender: System.Object; e: System.EventArgs);
  protected
    Project: DataTable;
    method Dispose(aDisposing: boolean); override;
  public
    constructor;
  end;

implementation

{$REGION Construction and Disposition}
constructor MainForm;
begin
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent();

  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

method MainForm.Dispose(aDisposing: boolean);
begin
  if aDisposing then begin
    if assigned(components) then
      components.Dispose();

    //
    // TODO: Add custom disposition code here
    //
  end;
  inherited Dispose(aDisposing);
end;
{$ENDREGION}

{$REGION Windows Form Designer generated code}
method MainForm.InitializeComponent;
begin
  var resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel.ComponentResourceManager(typeof(MainForm));
  self.textBox1 := new System.Windows.Forms.TextBox();
  self.button1 := new System.Windows.Forms.Button();
  self.saConnection1 := new iAnywhere.Data.SQLAnywhere.SAConnection();
  self.SuspendLayout();
  // 
  // textBox1
  // 
  self.textBox1.Location := new System.Drawing.Point( 12 ,  12 );
  self.textBox1.Name := 'textBox1';
  self.textBox1.Size := new System.Drawing.Size( 205 ,  20 );
  self.textBox1.TabIndex :=  0 ;
  // 
  // button1
  // 
  self.button1.Location := new System.Drawing.Point( 205 ,  238 );
  self.button1.Name := 'button1';
  self.button1.Size := new System.Drawing.Size( 75 ,  23 );
  self.button1.TabIndex :=  1 ;
  self.button1.Text := 'button1';
  self.button1.UseVisualStyleBackColor := true;
  self.button1.Click += new System.EventHandler(@self.button1_Click);
  // 
  // saConnection1
  // 
  self.saConnection1.ConnectionString := 'UserID="DBA";Password="sql";ServerName="arctic";AutoStart=No;AutoStop=No;Pooling="false"';
  self.saConnection1.InitString := nil;
  // 
  // MainForm
  // 
  self.ClientSize := new System.Drawing.Size( 292 ,  273 );
  self.Controls.Add(self.button1);
  self.Controls.Add(self.textBox1);
  self.Icon := (resources.GetObject('$this.Icon') as System.Drawing.Icon);
  self.Name := 'MainForm';
  self.Text := 'New Chrome Windows Forms App';
  self.Load += new System.EventHandler(@self.MainForm_Load);
  self.ResumeLayout(false);
  self.PerformLayout();
end;
{$ENDREGION}

method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
var
  P1: SAParameter;
begin
  Project:= new DataTable('project');
  saConnection1.Open;
  var A:= new SADataAdapter();
  A.SelectCommand:= new SACommand();
  A.SelectCommand.Connection:= saConnection1;
  A.SelectCommand.CommandText:= 'get_project_by_id';
  A.SelectCommand.CommandType:= CommandType.StoredProcedure;
  P1:= A.SelectCommand.Parameters.Add('@project_id', SADbType.UniqueIdentifierStr);
  P1.Value:= '1F66883A-A0B2-4377-87A3-06D54ED376C8';; 
  A.Fill(Project);
  saConnection1.Close;
  //
  textBox1.DataBindings.Add(new Binding('Text', Project, 'description'));
  //
end;

method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
var
  P: SAParameter;
  tr: SATransaction;
begin
  saConnection1.Open;
  //tr:= saConnection1.BeginTransaction as SATransaction;
  try
    var Changes: DataTable;
    Changes:= Project.GetChanges();
    if assigned(Changes) then
    begin
      var Cmd:= new SACommand();
      Cmd:= new SACommand();
      Cmd.Connection:= saConnection1;
      Cmd.CommandText:= 'save_project';
      Cmd.CommandType:= CommandType.StoredProcedure;
     //Cmd.Transaction:= Tr;
      P:= Cmd.Parameters.Add('@project_id', SADbType.UniqueIdentifier);
      P.Value:= Project.Rows[ 0 ]['project_id'];
      P:= Cmd.Parameters.Add('@description', SADbType.VarChar,  256 );
      P.Value:= Project.Rows[ 0 ]['description'].ToString;
      Cmd.ExecuteNonQuery;
    end;  
   // tr.Commit;
  except
    //tr.Rollback;
    raise;
  end;
  saConnection1.Close;
end;

end.