Creat method to "prevew next tokens"

used to "preview" if the uses has dot
var PreviewLexer:TmwPasLex;
begin
UnitName := UnitName + Lexer.Token;
PreviewLexer := PreviewNextToken;
try
if PreviewLexer.TokenID <> ptPoint then
begin
Form.Memo2.Lines.Add(UnitName);
UnitName := '';
end
else
begin
UnitName := UnitName+'.';
end;
finally
PreviewLexer.Free;
end;