Copy the text to the scrapbook and take the text from the scrap version

Example:

Procedure: string; var A: array [0..255] of char; begin strpcopy; clipboard.setTextBuf (a); end;

function GetStrFromClipbrd: string; begin if Clipboard.HasFormat (CF_TEXT) then result: = Clipboard.AsText else begin ShowMessage ( 'There is no text in the Clipboard!'); result: = ''; end; end;