Удаление из начала и конца строки незначащих символов

function Split(Str: String): String;
var
  I: Integer;
begin
  I := 1;
  while Str[1]= ' ' do  {удаляем пробелы в начале}
    Delete(Str, 1, 1);
  while I <= Length(Str) do begin
    if Str[I]= ' ' then
      while ((Str[I+1] = ' ') or (Length(Str) = I)) and (Length(Str) >= I) do
      {удаляем лишние пробелы между словами и в конце}
        Delete(Str, I, 1);
    Inc(I);
  end;
  Result := Str;
end;

 var
  InpStr:   string; //Копия входной строки
  InpPos:   integer;//Номер текущего символа
  CurrChar: char;   //Копия текущего символа
  b,c: Real;
 
{$R *.dfm}
//Процедура берёт следующий символ из строки
procedure GetNextChar;
begin
  if InpPos < length(InpStr) then begin
    Inc(InpPos);
    CurrChar := InpStr[InpPos];
  end
  else
    CurrChar := #0;
end;
 
//отсеивает ненужные символы
procedure SkipSpace;
begin
  while CurrChar in [' ', #9,#95] do
     GetNextChar;
end;

while CurrChar in [' ', #9,#95] do

function Split(Str: String): String;
var
I: Integer;
begin
I := 1;
while Str[1] in [' ',',','.',#13] do {удаляем пробелы в начале}
Delete(Str, 1, 1);
while I <= Length(Str) do begin
if Str[I] in [' ',',','.',#13] then
while ((Str[I+1] in [' ',',','.',#13]) or (Length(Str) = I)) and (Length(Str) >= I) do
{удаляем лишние пробелы между словами и в конце}
Delete(Str, I, 1);
Inc(I);
end;
Result := Str;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  D = [' ', #9, #10, #13];
var
  S : String;
  i, P1, P2, Len : Integer;
begin
  S := Memo1.Text;
 
  Len := Length(S);
  P1 := 0;
  P2 := 0;
  //Позиция первого символа слева, который не является разделителем.
  for i := 1 to Len do begin
    if not (S[i] in D) then begin
      P1 := i;
      Break;
    end;
  end;
  //Позиция первого символа справа, который не является разделителем.
  for i := Len downto 1 do begin
    if not (S[i] in D) then begin
      P2 := i;
      Break;
    end;
  end;
  //Строка, взятая по найденным координатам P1, P2.
  S := Copy(S, P1, P2 - P1 + 1);
  
  Memo2.Text := S;
end;