Не могу разобраться с Edit

[Cyrix]

var
 sL:TStringList;
 i:integer;
 res:string;
begin
sL:=TStringLIst.Create;
sL.Delimiter:=',';
sL.DelimitedText:=Memo2.Text;
res:='';

Если меняю:

sL.Delimiter:=',';

на:

sL.Delimiter:=Edit1.Text;

Вываливается такая ошибка.

incompatible types 'Char' and 'Tcaption'

Дайте подсказку, что не так делаю.

[Terran]

Проще говоря параметр Delimiter имеет тип Char т.е. 1 символ, а вы пытаетесь ему присвоить Edit1.Text в котором может быть множество символов.

Попробуйте так:

sL.Delimiter:=Edit1.Text[1];

[Cyrix]

Terran, спасибо!

[Terran]

Не за что

[Stilet]

sL.Delimiter:=Edit1.Text[1];

Неплохо бы проверочку

 if Edit1.Text<>'' then sL.Delimiter:=Edit1.Text[1];