字符串處理 (10分)

S:= '"中文字符串"fdf確定'
如何將""之間的字符串取出，令S:='中文字符串'。
以上字符串我隻是舉了一例，實際情況是,""之間和””之外的字符串均未知。

function Test(str: string): string;
var
index: integer;
begin
result := '';
index := pos('"',str);
if index > 0 then
begin
delete(str,1,index);
index := pos('"',str);
if index > 0 then
result := copy(str,1,index-1);
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
S: string;
begin
S:= '"中文字符串"fdf確定';
showmessage(Test(S));
end;

var a,item1,item2:integer;
s:='dfdf"sdsds"sdsd';
a:=0;
repeat
a:=a+1;
until s[a]='"';
item1:=a;
repeat
a:=a+1;
until s[a]='"';
item2:=a;
然后copy(s,item1,length(s)-item1-1-(length(s)-item2)

多人接受答案了。