100% de acuerdo con lipman.

Andres, llevas 5 post cas seguidos y todavía no posteas el código...

Un saludo

El que quiera, lo puede ir mejorando. Faltan muchas cosas.

Un Saludo!

Hola aqui les dejo una parte de la agenda que estoy haciendo:

program Untitled;
 
uses
    crt;
type
    Persona=
    record
          Nombre:string[10];
          Telefono:string[10];
    end;
var
   option:integer;
   Friend:Persona;
   Fichero:file of Persona;
   nameFile:string;
   buscado:integer;
   adato:Persona;
 
begin
repeat
//Menu
clrscr;
nameFile:='c:\AGENDA.txt';
writeln('1) Agregar persona');
writeln('2) Buscar persona');
writeln('3) Salir de agenda');
//Validar opcion
          repeat
               writeln('Elige opcion:');
               readln(option);
          until (option>0) and (option<=3);
          case option of
               1:
                 begin
                      writeln('AGREGANDO PERSONA');
                      writeln('INGRESA NOMBRE:');
                      readln(Friend.Nombre);
                      writeln('INGRESA TELEFONO:');
                      readln(Friend.Telefono);
                      Assign(Fichero,nameFile);
                      Reset(Fichero);
                      Write(Fichero,Friend);
                      Close(Fichero);
                 end;
               2:
               begin
                    writeln('BUSCANDO');
                    readln(buscado);
                    Assign(Fichero,nameFile);
                    reset(Fichero);
                    seek( fichero, buscado );
                    read(fichero,adato);
                    writeln('Nombre:',adato.Nombre);
                    writeln('Telefono:',adato.Telefono);
                    close(Fichero);
               end;
               3:writeln('Seleccionaste salir')
          end;
          readln();
until option=3;
end.

Un saludo

No. 

En todo caso como dijo Seba, deberías postear el source.

Otra cosa:


fallo comun de un programador: "En mi casa funciona"

¿Por qué no lo subiste a virus total?

Para convertir tu real a enteros, y obtener parte entera y decimal:

program Untitled;
 
uses
    crt;
var
   x:real;
   PE:integer;
   PD:real;
begin
     write('Ingresa numero:');
     readln(x);
     PE:= TRUNC(x);
     PD:=x-PE;
     writeln('Parte entera:',PE);
     writeln('Parte decimal:',PD);
     readln();
end.

Unicamente puse ese código de ejemplo, como demostración de lo que se podía hacer, solo fue un pseudo-vb ^^.

Un saludo

La propiedad MouseMove te permite controlar ese tipo de eventos.
Luego unicamente, con lo siguiente:

Image1.Picture=LoadImage(path1 or path2)

Eso bastará.

Con respecto a bd's no entiendo que no te queda claro, es cuestión de práctica.

Un saludo

Felicitaciones.
Exelente y extenso manual.
Lo hiciste tu?

Muchas gracias por la aclaración.

Justamente eso quería saber.

Seba, los av's unicamente detectan hooks en los procesos? o también pueden detectar este tipo de método?