speaker1: 34254 speaker2: 68574690 speaker3: 12850957 speaker4: 34906751
l:=34254; i:=68574690; s:=12850957; k:=34906751;
procedure TForm1.Button1Click(Sender: TObject); var s: string; strlist:TStringList; i:byte; begin s:='speaker1: 34254 speaker2: 68574690 speaker3: 12850957 speaker4: 34906751'; s:=StringReplace(s, ': ', '=', [rfReplaceAll]); s:=StringReplace(s, ' ', #13#10, [rfReplaceAll]); strList:=TStringList.Create; strList.Text:=s; speaker1:=strList.Values['speaker1']; speaker2:=strList.Values['speaker2']; speaker3:=strList.Values['speaker3']; speaker4:=strList.Values['speaker4']; end;