Delphi работа со строками

[tanek]

Добрый вечер! у меня возникла проблма.
Мне дали задание по строкам, а я не могу написать реализацию. не могли бы вы мне помочь?
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран слова этого текста в порядке, соответствующем латинскому алфавиту.
Я буду вам очень благодарна.....

[pesi]

var
str:tstringlist;
s:string;
begin
s:=memo1.Text;
str:=tstringlist.Create;
str.Text:=StringReplace(s, ' ', #13#10, [rfReplaceAll]);
str.Sort;
memo2.Text:=str.Text;
str.Free;
end;

[tanek]

я вот написала как вы сказали, только с использованием TComboBox, т.к. это обязательное условие.... Но она не работает Выдает два нуля....
Вы не могли бы посмотреть......

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm4 = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
     procedure ComboBox1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin

  ComboBox1.Items.Add(ComboBox1.Text);
  ComboBox1.Text:='';

end;

procedure TForm4.ComboBox1Click(Sender: TObject);
var st : string;
    nst:integer;
    str:tstringlist;
begin
  nst:=ComboBox1.ItemIndex;
  st:=ComboBox1.Items[nst];

str:=tstringlist.Create;
str.Text:=StringReplace(st, ' ', #13#10, [rfReplaceAll]);
str.Sort;
memo1.Text:=str.Text;
str.Free;


end;


end.

[tanek]

pesiОн выдает только нуль или один, почему он не выдает слова?????

[pesi]

вот это гляньте tanek.rar

[tanek]

Добрый вечер программисты... Возник вопрос по этому заданию....
Как вывести на экран только третье слово???

[pesi]

var st : string;
    nst:integer;
    str:tstringlist;
begin
  nst:=ComboBox1.ItemIndex;
  st:=ComboBox1.Items[nst];

str:=tstringlist.Create;
str.Text:=StringReplace(st, ' ', #13#10, [rfReplaceAll]);
str.Sort;
iF str.Count>=2 then memo1.Text:=str[2];
str.Free;
end;

[JTG]

str.Text:=StringReplace(st, ' ', #13#10, [rfReplaceAll]);

можно заменить на

str.Delimiter := ' ';
str.DelimitedText := st;