帮我指出注释处的语法错误

空瓶氧气

<p>procedure TForm1.FindDialog1Find(Sender: TObject);
var
  x,CopyPos,PosReturn,SkipChars : Integer;
  StrREG :String;
  Y :String;
begin
  SkipChars:=0;  

  for x:=XIndex to Memo1.Lines.Count - 1 do
  begin
    StrREG:= Memo1.Lines[x];   
    while  PosReturn<>0 do
    begin
      PosReturn:=Pos(FindDialog1.FindText ,StrREG); 
      CopyPos:=PosReturn+Length(FindDialog1.FindText);

      StrREG:=copy(StrREG,CopyPos,(Length(Memo1.Lines[x])-CopyPos));//这里有什么语法上的错误吗？
      SkipChars := Length(Memo1.Lines[x]) + SkipChars;

      Memo1.SetFocus ;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(FindDialog1.FindText );
      XIndex:= x+1;
      if XIndex>Memo1.Lines.Count-1 then
         XIndex := 0 ;
      Break;
    end;
  end;
end;</p><p> </p><p>错误提示：</p><p>[Error] Unit1.pas(193): Missing operator or semicolon</p><p>[Error] Unit1.pas(193): Incompatible types: 'String' and 'TAction'</p>

qq351317878

WinAPI 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
p: PChar;
buf: array[0..255] of Char;
begin
p := 'Delphi';

lstrcpyn(buf, p, 3+1); 
ShowMessage(buf); {Del}

lstrcpyn(buf, p, -1);
ShowMessage(buf); {Delphi}
end;

end.

你试试这个函数lstrcpyn  f1 里有