var 

MyForm:TclForm;

edtRegionID,edtRegionDesc:TCLEdit;

buton:TCLButton;

InsertQuery:TclSqlQuery;

void InsertToDatabase;

{

  try 

    

    Clomosy.DBSQLServerQuery.Sql.Text = 'INSERT INTO Region (RegionID,RegionDescripption) VALUES('+edtRegionID.Text+', '+QuotedsStr(edtRegionDesc.Text)+')';   

    Clomosy.DBSQLServerQuery.ExecSql;

    ShowMessage('Veri Ekleme Başarılı');

  

  except

    ShowMessage('Exception Class: ' + LastExceptionClassName+'Exception Message: '+ LastExceptionMessage);

    

}

{

MyForm=TclForm.Create(Self);

MyForm.AddNewEvent(MyForm,'edtRegionID','ingilizcesi');

edtRegionID.Margins.Right=150;

MyForm.AddNewEvent(MyForm,'edtRegionDesc','turkcesi');

edtRegionID.Margins.Left=150;

MyForm.AddNewButton(MyForm,'buton', 'kaydet');

buton.Align=albottom;

MyForm.AddNewEvent(buton, tbeOnClick,'InsertToDatabase');

InsertQuery =TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server','(localdb)\MSSQLLocalDB','ClomosyUser','123456','NorthWind',1433);

InsertQuery.Connection=Clomosy.DBSQLServerConnection;

MyForm.Run;

}

Hata olarak sondaki boş satırı yada olmayan ilk satırı veriyor. Kodda 38 satır var ama hata kodu: