[lmikle]

Либо я чего-то не понимаю, либо как-то так:

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
WinExec(Format('cmd.exe /c "echo %s" ',[memo1.lines.text]), SW_SHOW);
end;