[Após ler um txt, indentificar palavras e depois separar cada letrinha.]

É só fazer essa modificação no código

abraço

Muito obrigado pela ajuda, mas o codigo não funciona corretamente, ele esta jogando "emo1' no edit e quando aperta o botão ele apaga o conteúdo e não joga mais nada.

Obrigado.

[Após ler um txt, indentificar palavras e depois separar cada letrinha.]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  palavras : array[1..500] of string;    // definir 500 palavras
  letras : array[1..1000] of Char;       // definir 1000 caracteres
  x, z : integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var S: string;  i, n , y : integer;
begin
  x := 0;
  z := 0;
  S := memo1.Lines.Text;
  while Pos(' ', S) > 0 do
     begin
        x := x + 1;
        palavras[x] := copy(s,1,Pos(' ', S)); // SEPARAR AS PALAVRAS
        S[Pos(' ', S)] := '#';
        delete(S,1,Pos('#', S));
        //showmessage(s);

        n := Length(trim(palavras[x]));
        Edit1.Text := trim(palavras[x]);

        for i := 1 to n do
           begin
              z := z + 1;
              letras[z] := Edit1.text[i];  // SEPARA AS LETRAS DAS PALAVRAS
              showmessage(letras[z]);
           end;
     end;

     // PEGAR A ULTIMA PALAVRA DO TEXTO

     n := Length(trim(palavras[x]));

     x := x + 1;
     palavras[x] := copy(s,1,n); // SEPARAR A ULTIMA PALAVRAS

     delete(S,1,n);

     Edit1.Text := trim(palavras[x]);

     for i := 1 to n do
        begin
           z := z + 1;
           letras[z] := Edit1.text[i]; // SEPARA AS LETRAS DA PALAVRA FINAL
           showmessage(letras[z]);
        end;

end;

end.

abraço

Como fazer para separar somente as palavras e jogar a primeira palavra no edit1, depois apertar um button ai ele joga a próxima palavra no edit1, até que não reste mais palavras?