{
StrLCopy example
The following example uses an edit control and a button on
a form. When the button is clicked, the first X bytes of 
the edit control are copied into a buffer, where X is a 
predefined number.
} 
uses SysUtils;
const MAX_BUFFER = 10;
procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: array [0..MAX_BUFFER] of char;
begin
  StrLCopy(Buffer, PChar(Edit1.Text), MAX_BUFFER);
  Application.MessageBox(Buffer, 'StrLCopy example', [smbOK], smsInformation, smbOK, smbCancel);
end; 
