Błąd w wyszukiwarce

Witam. W moim programiku zastosowalem wyszukiwanie rekordu w bazie za pomocą tej procedury:

procedure TForm5.Button8Click(Sender: TObject);
var
Aktor:string[35];
begin
Aktor:=InputBox('Wyszukaj film wg nazwiska aktora','Podaj Nazwisko Aktora:',Aktor);
if
Table1.Locate('Aktor',Aktor,[LoCaseInsensitive])
then
ShowMessage ('Znleziono film z udziałem tego aktora '+Table1['Aktor'])
else
ShowMessage ('Brak filmu z udziałem takiego aktora '+Aktor);
end;

W momencie uruchomienia wyszukiwania i zatwierdzenia OK wszystko jest pięknie, ale jak uruchomię wyszukiwarkę i zrezygnuję z wyszukiwania, przez naciśnięcie close wywala mi taki komunikat:
(Project Forma1.exe raised exception class EVariantError with message 'Invalid variant type conversion'.)Nie wiem gdzie mam błąd, może mi ktoś coś doradzić?

Tą linijkę:
Aktor:=InputBox('Wyszukaj film wg nazwiska aktora','Podaj Nazwisko Aktora:',Aktor);
zastąp przez:
Aktor:=InputBox('Wyszukaj film wg nazwiska aktora','Podaj Nazwisko Aktora:', '');
if Aktor = '' then Exit;