[friz]

вот кривой код который реализует test*

Код:

var i,a,b,c:integer;
    shab,res:string;
begin
a:=pos('*',edit1.Text);
if a=length(edit1.Text) then shab:=copy(Edit1.Text,1,a-1);
b:=pos(shab,memo1.Text);
res:=shab;
if b<>0 then
      begin
      for I:=b+length(shab) to length(memo1.Text) do
        if memo1.Text[i]<>' ' then res:=res+memo1.Text[i]
                              else break;
      end;


ShowMessage(res);

если доработать то все будет гуд