procedure TForm1.Button1Click(Sender: TObject);var S: string; B, E: Integer;begin S := 'CUSD: 0,"Votre credit est de: 6230.00 ",15'; B := Pos('de: ', S) + Length('de: '); E := Pos(' ",', S); ShowMessage(Copy(S, B, E - B));end;