Delete multiple string left in [Delphi]

Question

Hello I need a simple function to delete left text strings, see the example below:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S