Ler parte de um registro

Ola Pessoal,

Preciso da seguinte ajuda: Ler e comparar.

Eu preciso ler no campo descrição da Table1 da posição 1 até \´\´ e depois comparar este valor com o campo descrição da Table2, enquanto o resultado da comparação for igual eu carrego o valor do campo código da Table1 para o campo código da Table2.

Eu cheguei até aqui mas ocorre um erro ´incompatible Types´.

procedure TF_Atualiza.TabImportAfterPost(DataSet: TDataSet);
var
Registro:String;
begin
TabImport.First;
While not TabImport.Eof do
begin
if TabImportTipo.Value = 0 then
begin
Registro:=copy(TabAtualiza.FieldByName(´descricão´),1,pos(TabAtualiza.fieldbyname(´descricão´),´ ´));

begin
TabImport.edit;
TabImport.fieldbyname(´tipo´):= TabTipoProduto.fieldbyname(´codtipo´);
TabImport.post;
end;
TabImport.next;
end;
end;

Um abraço. :(