это простецкая задачка...
алгоритм решения очен прост!!!
примерно так
var
i,j,k: integer;
s,s1,s2,s3: string;
begin
s:= Edit1.Text;
s1:='';
s2:='';
s3:='';
for i:=1 to strlen(PChar(s)) do
begin
if s[i]=' ' then break;
s1:=s1+s[i];
end;
for j:= strlen(PChar(s)) downto 1 do
begin
if s[j]=' ' then break;
s2:=s2+s[j];
end;
if j=1 then Label1.Caption:='В веденной строке одно слово'
else
begin
for k:=i to j do
s3:=s3+s[k];
end;
s:=s2+s3+s1;
Label1.Caption:=s;
end;