delphi如何查找并截取字符串

procedure TForm1.Button1Click(Sender: TObject);
var
  wStr: string;
  wPos1, wPos2: Integer;
begin
  wStr := '您好!<img src="S1002.jpg"/>天天开心！';
  wPos1 := pos('<img', wStr);
  wPos2 := pos('/>', wStr);
  wPos2 := wPos2 + Length('/>');
  caption := copy(wStr, wPos1, wPos2 - wPos1);
end;

相关函数 copy，delete，pos和leftstr,RightStr的用法