var
p:integer;
len:integer;
findstr:string;
begin
findstr:='123';
len:=length(findstr);
p:=Pos(findstr,memo1.Text);
if(p>0)then
begin
memo1.SetFocus;
memo1.SelStart:=p-1;
memo1.SelLength:=len;
end;
end;
p:integer;
len:integer;
findstr:string;
begin
findstr:='123';
len:=length(findstr);
p:=Pos(findstr,memo1.Text);
if(p>0)then
begin
memo1.SetFocus;
memo1.SelStart:=p-1;
memo1.SelLength:=len;
end;
end;
begin
memo1.SetFocus ;
memo1.SelStart :=pos('s',memo1.text)-1;
memo1.SelLength :=1;
end;