Fórum Boolean e String como consertar? #156158

Criei a Rotininha para validar o Pis, o que acontece é que na hora de ele me retornar a função ele dá erro:

[Error] DeloiteMain.pas(316): Incompatible types: ´String´ and ´Boolean´

[i:ba9d231a99][b:ba9d231a99]Onde devo arrumar?[/b:ba9d231a99][/i:ba9d231a99]

function validapis(vPis : String) : [b:ba9d231a99]boolean[/b:ba9d231a99];
.
.
.


procedure TForm1.MEPisChange(Sender: TObject);
var
[b:ba9d231a99]rPis : Boolean;[/b:ba9d231a99]
begin
if Length(MEPis.Text) = 10 then
begin
[b:ba9d231a99]rPis := ValidaPis(MEPis.Text);[/b:ba9d231a99]
if rPis = ´´ then
MessageDlg(´PIS Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´PIS Inválido´,mtWarning,[mbOk],0);
MEPis.SelectAll

end;
end;