Fórum função / erro #217680

Oi ,

Preciso de ajuda.
Faço programas em Clipper e estou tentando migrar para o Delphi.
Estou tentando aprender sozinho e arrumei uma apostila que tem um programa exemplo.
Estou seguindo a receita do bolo:


public
{ Public declarations }
function CriticaEdicao(DSOrigem:TDataSource;DoQue:String;AntesDe:String):Boolean;
end;

function TF_Menu.CriticaEdicao(DSOrigem:TDataSource;DoQue,AntesDe:String):boolean;
begin
if DSOrigem.State in [dsEdit, dsInsert] then
begin
MessageDlg(´Cancele a edição (inclusão) ´+DoQue+´ antes de ´+AntesDe,mtError,[mbOK],0);
Result := True;
end
else
Result := False;
end;


if F_Menu.CriticaEdicao(DM_Modelo.DSCategor,´Categoria´,´fechar´) then
begin
Action := caNone;
Exit;
end;
Screen.Cursor := crHourGlass;
DM_Modelo.TabCategor.Close;
If F_Menu.DBDisco.IsSQLbased then
F_Menu.DBDisco.Commit;


Error:C:\SISTEMA\CADDISCO\fMenu.pas(40): Undeclared identifier: ‘TdataSource&8217;.

O que aconteceu, porque o erro

Poderiam recomendar literatura sobre Delphi (livros, apostilas...)

Grato