Поменять местами первое и последнее предложение

procedure TForm1.Button1Click(Sender: TObject);
 var a : array [1..100] of string;i,n,t : integer; s : string;
begin
 n := 0;
 s := memo1.Text;
  t := Length(s);
  for i := 1 to t do
   if s[i] = '.' then
   begin
    n := n + 1;
    for i :=1 to t do
     if s[i]<= pos('.') then
     begin
     
   Memo2.text := ;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  i,j,k,n,t : integer; 
  s,s1,s2 : string;
begin
  n := 0;
  s := memo1.Text;
  t := Length(s);
  //Ищем начало и конец последнего предложения
  //Предполагаем, что в конце последнего тоже стоит точка
  For i:=t DownTo 1 Do
  If s[i]='.' Then
  If j=0 Then j:=i Else
  Begin
    k:=i+1; //Начало последнего предложения
    Break;
  End;
  If k=0 Then Exit; //Предложений меньше 2-х
 
  n:=Pos('.',s); //Конец первого предложения
  s1:=Copy(s,1,n); //Первое предложение
  s2:=Copy(s,k,j-k+1); //Последнее предложение
 
  Delete(s,k,j-k+1); //Удаляем последнее
  Delete(s,1,n); //Удаляем первое
 
  Memo2.Text:=s2+s+s1;
end;

var
  sl : TStringList;
  st : String;
begin
  sl := TStringList.Create;  
  try
    sl.Delimiter := '.';
    sl.DelimitedText := Memo1.Text;
    st := sl.Strings[0];
    sl.Strings[0] := sl.Strings[sl.Count - 1];
    sl.Strings[sl.Count - 1] := st;
    Memo2.Text := sl.Text;
  finally
    sl.Free;
  end;