Ajuda com Código Preciso pegar os estados separados por virgula e colocar cada um em uma posição diferente dentro de um Stringlist.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function fRetornaUFporVirgula(prUFScomVirgula : String):TStringList;
var
  Form1: TForm1;

implementation

{$R *.dfm}

function fRetornaUFporVirgula(prUFScomVirgula : String):TStringList;
var
  wUFS: TStringList;
  wCopia: integer;
  wCont : integer;
  wTexto : string;
begin
  prUFScomVirgula := StringReplace(prUFScomVirgula, ' ', EmptyStr, [rfReplaceAll]);
  wCont := 1;
  wCopia := wCont;
  wUFS := TStringList.Create;
  while (wCont <= Length(prUFScomVirgula)) do
     begin
       if (copy(prUFScomVirgula,wCont,1)=',') or (wCont = Length(prUFScomVirgula)) then
          begin
            wTexto := copy(prUFScomVirgula,wCopia,wCont-1);
            wUFS.add(wTexto);
            wCopia := wCont + 1;
          end;
       inc(wCont);
     end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  wCont : integer;
  wVarriavel:TStringList;
begin
  wVarriavel := fRetornaUFporVirgula(Edit1.Text);
  for wCont := 0 to wVarriavel.Count-1 do
     Label1.Caption := Label1.Caption + wVarriavel.Strings[wCont] + #13;
end;

end.