{
SetSelTextBuf example
This example inserts the contents of temp_string at the current location of the cursor.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  temp_string: array[0..15] of Char;
begin
  temp_string := 'I am now here';
  Memo1->SetSelTextBuf(temp_string);
end; 
