Удалить по пробелу из начала каждой строки текста, если он там есть(кнопка)

Мне нужно реализовать кнопку, при нажатии на которую удалится один пробел в начале строки во всем тексте, если он там есть. Пишу на паскале в лазарусе.

Как пример: код кнопки, при нажатии на которую ДОБАВЛЯЕТСЯ по одному пробелу во всем тексте в каждой строке

    procedure TMainForm.btnIndentClick(Sender: TObject);
var
  i: integer;
  S: String;
begin
   memText.Lines.BeginUpdate;
   try
   for i:=0 to memText.Lines.Count-1 do begin
    S := memText.Lines[i];
    if S<>'' then
    memText.Lines[i] := ' '+S;
   end;
   finally
     memText.Lines.EndUpdate
   end;
end;