{
This example appends a new record to a table or client dataset when the user clicks a button. The two fields ALPHANUMERIC and INTEGER are filled from the contents of two edit controls.
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SampleTable.Append;
  SampleTable.FieldValues['ALPHANUMERIC'] := Edit1.text;
  SampleTable.FieldValues['INTEGER'] := StrToInt(Edit2.text);
  SampleTable.Post;
end; 

