XML auslesen!?

[Mirilin]

Delphi-Quellcode:

function TMainForm.ExtractName(aInputString: String): String;
const
  name_start = '<rpt:VorName>';
  name_end   = '</rpt:VorName>';
var
  i_start, i_end : Integer;
begin
  Result  := '';
  i_start := Pos(name_start,aInputString);
  if i_start > 0 then
  begin
    i_start := i_Start+length(name_start);
    i_end := Pos(name_end,aInputString);
    if i_end > i_start then
    begin
      Result := copy(aInputString,i_start,i_end-i_start);
    end;
  end;
end;

procedure TMainForm.ButtonAuslesenClick(Sender: TObject);
begin
  LabelOut.Caption := ExtractName(EditIn.Text);
end;

so etwa in der Art...