Несоответствие типов

[Кристинка89]

Всем привет! написала процедуру чтобы форма дублировалась, на дельфи 7 работает отлично все, но теперь скачала Delphi XE и выдает ошибку в строке

WinExec(StrPCopy(PC, ParamStr(0)+' "'+S+'"'), Sw_Show);

А вот сама процедура...подскажите как исправть ошибку

procedure TTextReaderForm.N31Click(Sender: TObject);
var
PC: array[0..255] of char;
S: String;
begin
{$ifdef Windows}
WinExec(StrPCopy(PC, ParamStr(0)+' '+S), Sw_Show);
{$else}
WinExec(StrPCopy(PC, ParamStr(0)+' "'+S+'"'), Sw_Show);
{$endif}
end;

[maxionans]

Во-первых, что такое S? эта переменная нигде не инициализируется, поэтому не ясен смысл её использования.
Во-вторых, в Delphi XE типы Char и String работают в UNICODE кодировке, тогда как WinExec требует ANSI - из-за этого ошибка и возникла.
В-третьих, WinExec это давно устаревшая функция, вместо неё следует использовать CreateProcess или ShellExecute.

Вот пример с использованием ShellExecute:

uses ShellApi;

procedure TTextReaderForm.N31Click(Sender: TObject);
begin
  ShellExecute( 0, 'open', PChar(ParamStr( 0 )), nil, nil, SW_SHOW );
end;

[Кристинка89]

сейчас попробую ваш код...спасибо